Открывает определенный файл и возвращает объект TextStream, который может использоваться, чтобы читать, писать, и добавлять данные в файл.

object.OpenAsTextStream([iomode, [format]]) 

Параметры
object Обязательный. Всегда имя объекта File
iomode Необязательный. Указывает режим ввода/вывода. Может содержать одну из трех констант: , ForWriting или ForAppending
format Необязательный. Одно из трех значений типа Tristate, с помощью которого задается формат открываемого файла. По умолчанию формат ASCII
Параметр iomode может иметь следующие установки:

Константа 	Значение 		Описание 
ForReading 	1 		Открывает файл только для чтения 
ForWriting 	2 		Открывает файл для записи. Если файл с таким именем уже существует, 
				запись производится поверх его содержимого 
ForAppending 	8 		Открывает файл для записи в конец файла 

Параметр format может иметь следующие установки:

Константа 		Значение 		Описание 
TristateUseDefault 	–2 		Открывает файл, используя системную установку по умолчанию 
TristateTrue 		–1 		Открывает файл в формате Unicode 
TristateFalse   		0 		Открывает файл в формате ASCII 

Замечания
Метод OpenAsTextStream обеспечивает все функциональные возможности, поддерживаемые методом OpenTextFile объекта FileSystemObject

Пример
Следующий код иллюстрирует использование OpenAsTextStream метода:

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub